//---------------------------------------------------------------------------

#ifndef treedir_zetadiskH
#define treedir_zetadiskH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <FMTBcd.hpp>
#include <SqlExpr.hpp>
#include <stack>
//---------------------------------------------------------------------------
class TFormTreeDirZeta : public TForm
{
__published:	// IDE-managed Components
    TTreeView *TreeViewDir;
    TSQLQuery *QueryTree;
    void __fastcall TreeViewDirDblClick(TObject *Sender);
  void __fastcall FormActivate(TObject *Sender);
private:	// User declarations
public:		// User declarations
    __fastcall TFormTreeDirZeta(TComponent* Owner);
    void __fastcall BuiltTree();
    struct ItemNode
    {
    unsigned int id;
    unsigned int lvl;
    unsigned int r;
    unsigned int l;
    AnsiString cname;
    } *current_item_node;
};
//---------------------------------------------------------------------------
extern PACKAGE TFormTreeDirZeta *FormTreeDirZeta;
//---------------------------------------------------------------------------
#endif
